home *** CD-ROM | disk | FTP | other *** search
- 10 REM SCROLL TEST ROUTINE
- 20 TEXT : HOME
- 30 INPUT "SCROLL UP ADDRESS: ";SU
- 40 INPUT "SCROLL DOWN ADDRESS: ";SD
- 50 INPUT "SCROLL RIGHT ADDRESS: ";SR
- 60 INPUT "SCROLL LEFT ADDRESS: ";SL
- 70 INPUT "WINDOW LEFT: ";WL
- 80 INPUT "WINDOW WIDTH: ";WW
- 90 INPUT "WINDOW TOP: ";WT
- 100 INPUT "WINDOW BOTTOM: ";WB
- 110 HOME
- 120 POKE 32,WL: POKE 33,WW: POKE 34,WT: POKE 35,WB
- 130 HOME
- 140 INPUT T$
- 150 IF LEN(T$) >0 THEN 140
- 160 REM WINDOW FILLED
- 170 GET T$
- 180 IF T$ < >"U" THEN 200
- 190 CALL SU: GOTO 170
- 200 IF T$ < >"D" THEN 220
- 210 CALL SD: GOTO 170
- 220 IF T$ < >"R" THEN 140
- 230 CALL SR: GOTO 170
- 240 IF T$ < >"L" THEN 160
- 250 CALL SL: GOTO 170
- 260 IF T$ < >"G" THEN 280
- 270 POKE -16304,1: GOTO 170
- 280 IF T$ < >"T" THEN 300
- 290 POKE -16303,1: GOTO 170
- 300 IF T$ < >"X" THEN 170
- 310 TEXT : END